; GMT in seconds since January 1, 1970

  var %d = $ctime, %days
  %d = %d / $secday
  %days = %d
  ; $epoch2day(Epoch 1997 aug. 20 TT) earth long 328.40353 ? 327.52 = within
        2.92 vernal07-autumnal06. 327.65 aligns ra 0.23-180.01
    %d = %days - 10092
    if ($1 == 0) return %d . . . . . . . 109.75 Sun
    if ($1 == 1) return %d $parord(7.00487 48.333899 77.453997 0.387098
4.0923349 0.205632 314.423688) 0.382518 Mercury 0
    if ($1 == 2) return %d $parord(3.39472 76.6889 131.761002 0.723324 1.602158
0.006793 236.2) 0.948863 Venus 0
    if ($1 == 3) return %d $parord(0.000295 348.73936 114.20783
1.000000112361225 0.98564736 0.016710219 327.65) 1.0 Earth 0
    if ($1 == 4) return %d $parord(1.85061 49.57854 290.4623 1.523662 0.524048
0.09341233 262.427834) 0.533466 Mars 0
    if ($1 == 5) return %d $parord(1.3053 100.471297 15.6978 5.202597 0.083078
0.048465 322.559836) 11.20915 Jupiter 0
    if ($1 == 6) return %d $parord(2.48446 113.635797 88.863 9.5719 0.03346
0.053165 20.95759) 9.45123 Saturn 0
    if ($1 == 7) return %d $parord(0.76986 74.22988 175.680703 19.30181 0.011623
0.042896 303.1896) 4.007367 Uranus 0
    if ($1 == 8) return %d $parord(1.76917 131.792503 7.206 30.26664 0.005919
0.010298 299.864101) 3.882719 Neptune 0
    if ($1 == 9) return %d $parord(17.14175 110.383302 224.802494 39.481686
0.003958072 0.250127 235.76559) 0.180778 Pluto 0
    if ($1 == 10) return %d $parord(32.4 275.4 208.5 101.6 0.0009672 0.411
217.0) 4.95 Planet-X 0

 ; .......... inclination, ascending node, perihelion, axis au, daily motion,
eccentricity, longitude,) size-earthrads, name, host-id

alias parord {
  tokenize 32 $1-
  return $deg2rad($5) $deg2rad($7) $deg2rad($3) $6 $au2mi($4) $deg2rad($2)
$deg2rad($1)
}


That should give you something to do for an hour or so. I want to all the
planets positioned by tomorrow, lol. I mean if you want to.

Outta here

Post a reply to this message